home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Updates / AmigaOS3.5 / VerTool / vertool.rexx < prev    next >
OS/2 REXX Batch file  |  2000-05-16  |  762b  |  31 lines
  1. /* version info
  2. $VER: vertool 1.0 (3.11.99)
  3. */
  4.  
  5. options results
  6. options failat 50
  7. address workbench
  8.  
  9. GETATTR OBJECT WINDOWS.ACTIVE
  10. activewin=result
  11. getattr object window.icons.selected.count name '"' || activewin || '"'
  12. iconnum = result
  13. do i=0 to iconnum-1
  14. getattr object window.icons.selected.i name '"' || activewin || '"' stem iconinfo.i
  15. sep = '/'
  16. if right(activewin,1)=':' then sep=''
  17. if activewin='root' then do
  18.     sep=''
  19.     activewin=''
  20.     end
  21. fullpath = '"' || activewin || sep || iconinfo.i.name || '"'
  22. address command
  23. version '>t:version.tmp' fullpath 'full'
  24. dummy = open('vertmp','t:version.tmp','R')
  25. ver = readln('vertmp')
  26. dummy = close('vertmp')
  27. requestchoice '>nil: "'|| iconinfo.i.name ||'" "' || ver || '" OK'
  28. delete '>nil: t:version.tmp'
  29. end
  30.  
  31.